0 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
1 BU=842:BC=208:S1=45:S2=46:A=PEEK(S1):B=PEEK(S2):C=PEEK(4624):D=PEEK(4625)
2 INPUT"[147][144]PROGRAM TO APPEND";PROG$:IFPROG$="QUIT"THEN9
3 OPEN15,8,15,"I0:":OPEN1,8,8,PROG$+",P,R":INPUT#15,E,E$
4 CLOSE1:CLOSE15:IFETHENPRINT"ERROR:"E;E$:END
5 PRINT"[147]LOAD"CHR$(34)PROG$CHR$(34)",8"
6 PRINT"POKE"S1","A":POKE"S2","B"":POKEBU,13:POKEBU+1,13:POKEBC,2
7 IFC>1THENPOKES1,C-2:POKES2,D:END
8 POKES1,C+253:POKES2,D-1:END
9 PRINT"[147]":FORJ=0TO9:PRINTJ:POKEBU+J,13:NEXT:POKEBC,10:PRINT"":END